home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / For_ScanQuix / FinalWriterV5.x / FWMacros / ScanImage
Encoding:
Text File  |  1999-03-16  |  948 b   |  54 lines
  1. /* $VER: ScanImage.rexx 1.0 for Finalwriter © by Jochen Grus (02.08.96) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. options failat 25     /* ScanToDisk returns 0 or 20 */
  6.  
  7. ram:ScanImage
  8.  
  9. ok=1
  10. call SCAN()           /* Scans the image into a temporary file */
  11. call IMPORTGRAPHIC()  /* Loads Image into Finalwriter */
  12. call DELETEFILE()     /* Removes temporary image file */
  13.  
  14. EXIT
  15.  
  16.  
  17.  
  18. SCAN:
  19. /* Scans the image into a temporary file using the program "ScanToDisk". */
  20.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  21.     ok=0
  22.     return
  23.   end
  24.  
  25.   pragma('DIRECTORY',READLN('path'))
  26.   address command 'ScanQuix3/ScanToDisk FILE=ram:ScanImage TRUECOLOR NOICONS NOGUI PUBSCREEN=FinalWriterPubScreen'
  27.   if RC>=5 then do
  28.     ok=0
  29.     return
  30.   end
  31.  
  32. return
  33.  
  34.  
  35.  
  36. IMPORTGRAPHIC:
  37. /* Loads the image into Finalwriter */
  38.   if ok=0 then
  39.     return
  40.  
  41.   'insertimage ram:ScanImage'
  42.  
  43. return
  44.  
  45.  
  46.  
  47. DELETEFILE:
  48. /* removes temporary file */
  49.   address command 'delete ram:ScanImage'
  50.  
  51.  
  52. return
  53.  
  54.